home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / sources / tokstr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-09-22  |  1.7 KB  |  64 lines
  1. #define TOK_STR
  2. #include "tokstr.h"
  3.  
  4. #ifndef NUM_EL
  5. #define NUM_EL(a) (sizeof(a)/sizeof(*a))
  6. #endif
  7.  
  8. char *tok_strings[]=
  9. {
  10.     "(",")","[","]"
  11.     ,"=","<",">","<=",">=","<>"
  12.     ,",",";",":"
  13.     ,"?","#"
  14.  
  15. /* Schlüsselworte mit Realzahlen als Argument */
  16.     ,"+","-","*","/","^"
  17. /* alphanumerische Funktionen */
  18.     ,"SQU","SQR","SQRT"
  19.     ,"SIN","COS","TAN","ASIN","ACOS","ATAN","ARCTAN"
  20.     ,"SINH","COSH","TANH","ASINH","ACOSH","ATANH"
  21.     ,"LOG","LN","LD","LG"
  22.     ,"EXP","TEN","TWO"
  23.     ,"ABS","SGN","STR$","RCP","INT"
  24.     ,"DMS$"
  25.  
  26. /* Schlüsselworte mit Intzahlen als Argument */
  27.     ,"LABEL","NOT","FACT"
  28.     ,"HEX$","OCT$","BIN$","CHR$"
  29.     ,"PEEKL","PEEKW","PEEK","POKEL","POKEW","POKE"
  30.     ,"PLOT","LINE","CIRCLE"
  31.  
  32. /* Schlüsselworte mit String als Argument */
  33.     ,"VAL","ASC","LEN"
  34.     ,"DEG"
  35.     ,"INBYTE","OUTBYTE"
  36.  
  37. /* Schlüsselworte mit irgendeinem  oder ohne Argument */
  38.     ,"REM","LET","PRINT","INPUT"
  39.     ,"IF","END","STOP","CONTINUE","FOR","NEXT","WHILE","WEND"
  40.     ,"GOSUB","RETURN","READ","DATA","RESTORE"
  41.     ,"GOTOXY","ON","DIM"
  42.     ,"LIST","RUN","NEW","LOAD","MERGE"
  43.     ,"SAVE","BYE","DEL","RENUM"
  44.     ,"FOPEN","FCLOSE","FINPUT","FPRINT","ERRNO"
  45.  
  46.     ,"DEGREE","GRAD","RAD","CLS","CLEAR","USING$","USING"
  47.     ,"RAND","PI","INKEY$","MID$"
  48.     ,"AND","OR","XOR","MOD","THEN","ELSE","TO","STEP","GOTO"
  49.     ,"TRON","TROFF","FSEL$"
  50.     ,"FILES","CD","CHDIR","MKDIR","RMDIR","PATH$", "TIME$", "TIMER"
  51.     ,"ALERT"
  52. };
  53.  
  54. #if (NUM_EL(tok_strings)<NUM_TOKS)
  55. #line 8
  56. #error "not enough initializers in array 'tok_strings'"
  57. #endif
  58.  
  59. #if (NUM_EL(tok_strings)>NUM_TOKS)
  60. #line 8
  61. #error "too many initializers in array 'tok_strings'"
  62. #endif
  63.  
  64.